home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / td187src.lzh / DIALOGE.D < prev    next >
Text File  |  1991-12-14  |  2KB  |  66 lines
  1. DEFINITION MODULE Dialoge;
  2. FROM Types      IMPORT sourceformat, targetformat;
  3. FROM mtRsc      IMPORT RESOURCE;
  4.  
  5. VAR RSC          : RESOURCE;
  6.  
  7. PROCEDURE DeselectIcon( IconNr : INTEGER );
  8.  
  9. PROCEDURE SelectIcon( IconNr : INTEGER );
  10.  
  11. PROCEDURE GetUnitLength(VAR newfak, newunit : INTEGER;
  12.                         VAR zoom            : BOOLEAN) : BOOLEAN;
  13. (* Bestimme Einheit der Unitlength *)
  14.  
  15. PROCEDURE ChangeObjSize (VAR xmal, ymal : LONGREAL);
  16.  
  17. PROCEDURE ChangePicRes(VAR mux, muy : INTEGER;
  18.                        X, Y         : INTEGER);
  19.  
  20. PROCEDURE GetFontRes(VAR mux, muy : INTEGER;
  21.                      VAR create   : ARRAY OF INTEGER);
  22. (*
  23.    mux, muy : Auflösung des Bildes
  24.    create   : Liste der zu erzeugenden Zeichensatzdateien.
  25.               Zwei aufeinanderfolgende Werte für die Auflösung in
  26.               X- und Y-Richtung
  27.               Endet mit -1, -1
  28. *)
  29. PROCEDURE Info ( Version : ARRAY OF CHAR ) ;
  30.  
  31. PROCEDURE SetSystem(VAR Save : BOOLEAN);
  32.  
  33. PROCEDURE SetFont;
  34.  
  35. PROCEDURE OverFaktor;
  36.  
  37. PROCEDURE SetPicsize;
  38.  
  39. PROCEDURE SetGridSize;
  40.  
  41. PROCEDURE SetMetaOptions;
  42.  
  43. PROCEDURE SetSpecialOptions;
  44.  
  45. PROCEDURE PicConvert(VAR source : sourceformat;
  46.                      VAR target : targetformat) : BOOLEAN;
  47.  
  48. PROCEDURE ChooseImport () : INTEGER;
  49.  
  50. PROCEDURE ChooseExport (VAR flag : BOOLEAN) : INTEGER;
  51.  
  52. PROCEDURE AdjustIt (VAR picadjust : BOOLEAN;
  53.                     VAR globalpos,
  54.                         localpos  : INTEGER ) : BOOLEAN;
  55.  
  56. PROCEDURE MoveResize ( VAR x, y, w, h : INTEGER ) : BOOLEAN;
  57.  
  58. PROCEDURE BusyStart(File        : ARRAY OF CHAR;
  59.                     ClearWindow : BOOLEAN);
  60.  
  61. PROCEDURE BusyEnd;
  62.  
  63. PROCEDURE ShowHelp(prev, next : BOOLEAN) : INTEGER;
  64.  
  65. END Dialoge.
  66.